#!/usr/bin/perl
sub p {
        print @_;
        print "\n";
}

while (<>) {
        chomp;
        # process continuation lines ending with \
        if (s/\\$//) {
                $_ .= <>;
                redo;
        }
        eval;
        if ($@) {
                print "error: $@\n";
        }
        print "-" x 30, "\n";
}
